10 POKE52,55:POKE56,55:CLR:GOTO800
20 POKEOO,1:POKEPS,0:POKEHT,0:POKETH,0:FC=0:TC=10:LC=18:CC=12:Y=25
30 GOTO100
50 GOSUB660
55 PRINT"[158] AGAIN...":SYSSR:SYSSR
60 PRINT" YOUR PEOPLE ARE FREE ONCE":SYSSR:SYSSR:SYSSR:SYSSR
65 PRINT" OF THE ENEMY INSTALLATIONS.":SYSSR:SYSSR
70 PRINT" YOU HAVE DESTROYED ALL":SYSSR:SYSSR
75 FORI=1TO6:SYSSR:NEXT:POKES+5,128:POKES+6,248:POKES+12,0:POKES+13,240
80 P(0)=34:P(1)=34:P(2)=45:D(0)=200:D(1)=100:D(2)=450
85 FORI=0TO2:POKES+1,P(I):POKES+8,P(I)-15:POKES,0:POKES+7,0
86 POKES+4,17:POKES+11,17
90 FORD=1TOD(I):NEXT:POKES+4,16:POKES+11,16:FORJ=1TO25:NEXT:NEXT
95 SYSXY,7,23:PRINT"PRESS ANY KEY":POKE198,0
98 GETA$:IFA$=""THEN98
99 MS=9:GOTO700
100 IFPEEK(PS)THEN200
110 IFPEEK(TH)THENGOSUB400
115 IFPEEK(HT)THENGOSUB450
120 IFINT(RND(1)*30)=1ANDBS=0THENGOSUB460
130 IFBS=1THENGOSUB470
140 FC=FC+1:IFFC=40+MS*2THENFC=0:GOTO325
150 IFPEEK(653)AND1THEN190
180 GOSUB300
185 GOTO100
190 IFPEEK(653)THENPOKEOO,0:POKES+24,0:GOTO190
195 POKEOO,1:POKES+24,47:GOTO180
200 POKE2040,253:POKES+1,8:POKES+5,0:POKES+6,13:POKES+4,129:POKES+4,128
205 POKES+11,0:POKES+18,0
210 POKEV+28,PEEK(V+28)OR1:FORI=1TO100:POKEV+39,8:POKEV+39,2:NEXT
215 BS=0:SYSXY,32,21:PRINT"     "
220 FORI=1TO1500:NEXT:SH=SH-1:IFSH=-1THEN250
225 SYSXY,31,14:PRINT""SH:POKEV+21,192:FC=0:GOTO500
250 POKEOO,0:POKES+4,0:POKES+11,0:POKES+18,0:POKEV+21,192
255 SYSXY,7,10:PRINT"[158]]^^^^^^^^^^^?"
260 PRINTTAB(7)"[ GAME OVER[158] @"
265 PRINTTAB(7)"\^^^^^^^^^^^_"
270 FORI=1TO3000:NEXT:POKEV+21,0:GOTO700
300 SYSSR:Y=Y+1:IFY=35-MSTHENY=0:GOSUB340
305 TC=TC+1:IFTC=35-MSTHENTC=0:GOSUB350
310 CC=CC+1:IFCC=35-MSTHENCC=0:GOSUB380
315 LC=LC+1:IFLC=35-MSTHENLC=0:GOSUB390
320 RETURN
325 F=F-1:IFF=0THEN200
330 SYSXY,30,17:PRINT"         "
335 SYSXY,30,17:PRINTLEFT$(F$,F*2):GOTO180
340 SYSXY,0,0:POKE646,RND(1)*6+10:PRINTWL$(RND(1)*9+1):RETURN
350 POKEV+6,RND(1)*220+30:POKEV+7,28:POKEV+21,PEEK(V+21)OR8:POKETH,0
352 POKE2043,251:POKEV+42,11:RETURN
380 POKEV+4,RND(1)*220+30:POKEV+5,28:POKEV+21,PEEK(V+21)OR4:POKEHT,0
385 POKE2042,252:POKEV+41,8:RETURN
390 SYSXY,0,0:PRINTLZ$(RND(1)*8+1):RETURN
400 IFPEEK(2043)=253THENRETURN
405 POKEV+42,2:POKE2043,253
410 SC=SC+250:GOSUB680
415 T=T+1:IFT=MS+4THEN570
420 RETURN
450 IFPEEK(2042)=253THENRETURN
455 POKEV+41,2:POKE2042,253
458 SC=SC+10+10*MS:GOSUB680:RETURN
460 BS=1:BF=150:POKES+12,0:POKES+13,240:POKES+8,BF
465 X=INT(RND(1)*26)+1:XX=INT(X/6)+1
466 SYSXY,XX+31,21:PRINT".":POKES+11,17
468 RETURN
470 BF=BF-5:POKES+8,BF:IFBF>90THENRETURN
475 Z=INT(PEEK(V+1)/8):SYSXY,X,Z-7:PRINT"&&&[145][157][157]&[157]&":POKES+11,16:BS=0
480 SYSXY,32,21:PRINT"     "
485 POKES+11,16:POKES+8,8:POKES+12,0:POKES+13,11:POKES+11,129:POKES+11,128
490 RETURN
500 POKEV+21,192:GOSUB660:POKE2040,255:POKE2041,254:POKE2042,252:POKE2043,251
505 POKE V,124:POKEV+1,210:POKEV+39,6:POKEV+40,2:SYSXY,31,11:PRINT""MS
510 POKEV+41,8:POKEV+42,11:POKEV+28,12:POKEV+37,7:POKEV+38,12
515 POKE53270,PEEK(53270)OR16:POKE53282,1
520 POKEV+23,0:POKEV+29,0:POKEV+21,193
522 POKES+23,244:POKES+22,0:POKES+24,47:POKES+19,208:POKES+20,240
524 POKES+14,0:POKES+15,6:POKES+18,129
525 SYSXY,3,11:PRINT"PREPARE FOR MISSION"MS
528 SYSXY,5,13:PRINT"DESTROY"MS+4-T"TOWER";:IFMS+4-T>1THENPRINT"S"
530 POKES+5,0:POKES+6,240:POKES+4,33:FORI=1TO3
535 POKES+1,8:POKES,97:FORJ=1TO350:NEXT:POKES+1,12:POKES,32:FORJ=1TO350:NEXT
540 NEXT:POKES+4,32
545 GOSUB660:TC=0:Y=0
550 OO=53245:SS=52992:TS=52993:PS=52994:HT=52995:TH=52996:SR=50432
555 POKES+5,0:POKES+6,9
560 F$="'''''''''":SYSXY,30,17:PRINTF$:F=9
565 Z=PEEK(V+30):Z=PEEK(V+31):GOTO20
570 POKEV+21,192:POKES+4,0:POKES+11,0:POKES+18,0:GOSUB660
575 SYSXY,4,11:PRINT"MISSION"MS"COMPLETED":POKEOO,0
580 FORI=1TO500:NEXT:MS=MS+1:IFMS=10THEN50
585 SYSXY,7,13:PRINT"[158]BONUS:"F*10"PTS.":GOSUB680
590 FORI=1TO2500:NEXT:T=0:GOTO500
600 FORI=1093TO1973STEP40:POKEI,27:POKEI+10,0:NEXT
610 XY=832:SYSXY,29,0:PRINT"]^^^^^^^^^?"
615 SYSXY,29,24:PRINT"\^^^^^^^^^";:POKE2023,31
620 FORI=3TO18STEP3:SYSXY,30,I:PRINT"^^^^^^^^^":NEXT
625 SYSXY,31,4:PRINT"[159]SCORE":SYSXY,31,7:PRINT"HIGH":SYSXY,31,10:PRINT"MISSION"
630 SYSXY,31,13:PRINT"SHIPS":SYSXY,31,16:PRINT"FUEL"
632 PRINTTAB(30)"'''''''''[159]"
635 SYSXY,31,19:PRINT"SCANNER":PRINTTAB(31)"]^^^^^?"
640 PRINTTAB(31)"[     @":PRINTTAB(31)"[  *  @"
650 PRINTTAB(31)"\^^^^^_"
655 RETURN
660 FORI=0TO12:SYSXY,0,I:PRINT"                             "
670 SYSXY,0,24-I:PRINT"                             ";:NEXT:RETURN
680 SYSXY,31,5:PRINT"        ":SYSXY,31,5:PRINTSC
685 IFSC>HSTHENHS=SC:SYSXY,31,8:PRINT"        ":SYSXY,31,8:PRINTHS
690 RETURN
700 POKE53281,0:POKE53280,11:POKEV+28,0:POKE53270,PEEK(53270)AND239
705 POKEV+23,1:POKEV+29,1:POKEV+16,192:POKEV+12,25:POKEV+14,49
710 POKEV+13,57:POKEV+15,57:POKE2046,249:POKE2047,250
712 POKEV,122:POKEV+1,85:POKEV+39,6:POKE2040,255
715 POKEV+45,7:POKEV+46,7:POKEV+21,193:PRINT"[147]":GOSUB600
716 SYSXY,31,5:PRINT""SC:SYSXY,31,8:PRINTHS:SYSXY,31,11:PRINTMS
718 SH=3:SYSXY,31,14:PRINTSH
720 SYSXY,2,15:PRINT"PRESS F1 TO SELECT MISSION"
725 SYSXY,4,17:PRINT"[129]PRESS F3[129] TO START GAME"
730 SYSXY,7,19:PRINT"[150]PRESS F7[150] TO EXIT"
740 GETA$:IFA$=""THEN740
750 IFA$="[133]"THENMS=MS+1:IFMS=10THENMS=1
755 SYSXY,31,11:PRINT""MS
760 IFA$="[134]"THEN780
770 IFA$="[136]"THENPOKEV+21,0:PRINT"[147]":END
775 GOTO740
780 SC=0:F=9:T=0:GOSUB680:GOTO500
800 POKE53281,11:POKE53280,11:POKE646,7:V=53248:S=54272:PRINT"[147]":POKEV+21,0
805 FORI=STOS+23:POKEI,0:NEXT:POKES+24,15
806 POKES+5,0:POKES+6,14:POKES+1,150
808 POKE53270,PEEK(53270)AND239:POKEV+28,0
810 FORI=249TO255:FORJ=0TO63:READK:POKE64*I+J,K:NEXT:NEXT
815 POKE2040,249:POKE2041,250:POKEV+29,3:POKEV+23,3
820 POKEV+39,0:POKEV+40,0:POKES+4,129:POKES+4,128
825 POKEV,136:POKEV+2,184:POKEV+1,110:POKEV+3,110:POKEV+21,3
828 FORI=0TO240:POKES+1,I:POKEV+39,I:POKEV+40,I:NEXT
830 PRINT"[158]"SPC(7)"PLUG JOYSTICK INTO PORT 2"
835 PRINT""SPC(13)"[154]LOADING DATA"
845 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
850 FORI=0TO511:POKEI+14336,PEEK(I+53248):NEXT
855 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
860 POKE53272,(PEEK(53272)AND240)+14
865 READK:IFK=-1THEN875
870 FORI=0TO7:READJ:POKE14336+K*8+I,J:NEXT:GOTO865
875 FORI=832TO860:READJ:POKEI,J:NEXT
878 FORI=1TO9:READWL$(I):NEXT:FORI=1TO8:READLZ$(I):NEXT
880 FORI=49152TO49577:READJ:POKEI,J:NEXT
885 FORI=50432TO50633:READJ:POKEI,J:NEXT
890 MS=1:SH=3:POKE53245,0:SYS49553:GOTO700
900 DATA1,223,124,1,68,17,2,68
901 DATA17,3,196,17,4,68,17,4
902 DATA68,17,8,68,17,8,0,0
903 DATA16,0,0,31,156,56,32,34
904 DATA68,60,34,68,64,66,121,64
905 DATA68,145,128,68,144,128,56,136
906 DATA0,0,0,0,0,0,0,0
907 DATA0,0,0,0,0,0,0,0
908 DATA227,145,0,20,82,0,20,20
909 DATA0,244,24,0,20,20,0,20
910 DATA82,0,19,145,0,0,0,0
911 DATA0,0,0,112,240,0,137,0
912 DATA0,129,0,0,3,192,0,2
913 DATA0,0,148,0,0,103,192,0
914 DATA0,0,0,0,0,0,0,0
915 DATA0,0,0,0,0,0,0,2
916 DATA10,160,0,42,168,0,234,171
917 DATA0,186,175,0,171,255,0,170
918 DATA255,0,170,255,0,170,255,0
919 DATA170,255,0,170,255,0,170,255
920 DATA0,170,255,0,170,255,0,170
921 DATA255,0,170,255,0,170,255,0
922 DATA170,255,0,170,255,0,42,252
923 DATA0,10,240,0,0,0,0,0
924 DATA0,0,0,0,0,0,0,0
925 DATA0,0,0,0,0,0,0,0
926 DATA0,0,0,168,0,10,170,128
927 DATA42,170,160,86,170,84,169,85
928 DATA168,42,170,160,10,170,128,0
929 DATA168,0,0,0,0,0,0,0
930 DATA0,0,0,0,0,0,0,0
931 DATA0,0,0,0,0,0,0,18
932 DATA0,0,0,2,10,0,0,0
933 DATA0,2,8,8,32,34,0,0
934 DATA138,128,10,10,0,2,168,162
935 DATA138,42,162,34,136,128,40,170
936 DATA162,10,170,32,34,170,136,10
937 DATA40,168,136,170,32,0,34,136
938 DATA2,138,128,32,40,32,8,32
939 DATA128,0,2,8,0,32,0,255
940 DATA0,0,0,0,0,0,0,0
941 DATA0,0,0,0,128,0,32,128
942 DATA0,32,128,0,32,128,0,32
943 DATA128,0,32,128,0,032,0,0
944 DATA0,0,0,0,0,0,0,0
945 DATA0,0,0,0,0,0,0,0
946 DATA0,0,0,0,0,0,0,0
947 DATA0,0,0,0,0,0,0,0
948 DATA0,64,0,0,64,0,0,64
949 DATA0,0,224,0,0,224,0,1
950 DATA176,0,1,16,0,1,16,0
951 DATA1,176,0,1,240,0,1,240
952 DATA0,6,236,0,14,238,0,14
953 DATA174,0,29,183,0,189,183,160
954 DATA253,183,224,253,183,224,7,28
955 DATA0,0,0,0,0,0,0,0
956 DATA0,216,216,216,216,216,216,216,216
957 DATA27,27,27,27,27,27,27,27,27
958 DATA28,27,27,27,24,15,0,0,0
959 DATA29,0,0,15,24,27,27,27,27
960 DATA30,0,0,255,0,255,0,0,0
961 DATA31,216,216,216,24,240,0,0,0
962 DATA33,0,1,15,15,29,60,124,126
963 DATA35,0,128,240,240,184,60,62,126
965 DATA38,8,90,52,191,90,52,74,16
966 DATA45,85,85,255,255,255,255,255,255
967 DATA44,85,93,245,245,245,245,244,240
968 DATA47,21,85,255,255,255,255,255,255
969 DATA63,0,0,240,24,216,216,216,216
970 DATA39,255,255,255,255,255,255,255,255,-1
971 DATA32,253,174,32,138,173,32,247,183
972 DATA152,72,32,253,174,32,138,173,32
973 DATA247,183,152,170,104,168,24,32
974 DATA240,255,96
980 DATA"--,   /----------------------"
981 DATA"------,   /------------------"
982 DATA"----------,   /--------------"
983 DATA"--------------,   /----------"
984 DATA"------------------,   /------"
985 DATA"----------------------,   /--"
986 DATA"--,   /-----,   /-----,   ---"
987 DATA"   /---------------------,   "
988 DATA"--,   /---------------,   /--"
990 DATA"  !%%%%%%%%%%%#"
991 DATA"  !%%%%%%#    !%%%%%%#  "
992 DATA"       !%%%%%%%%%%%%%#"
993 DATA"             !%%%%%%%%%%%%#"
994 DATA"  !%%#   !%%#   !%%#   !%%#"
995 DATA"   !%%%%%%%%%%%%%%%%%%%%%#"
996 DATA"!%%%%%#    !%%%%%#    !%%%%%#"
997 DATA" !%#   !%%#   !%%%#   !%%%%#"
1000 DATA173,253,207,240,37,173,0,220,41,16,240,5,169,0,141,249,207,173
1001 DATA2,207,208,6,32,45,192,32,112,192,173,3,207,208,3,32,3,193,32
1002 DATA198,192,32,74,193,108,254,207,173,0,220,174,0,208,41,8,240,10
1003 DATA224,26,240,23,206,0,208,206,0,208,173,0,220,41,4,240,10,224
1004 DATA238,240,6,238,0,208,238,0,208,173,0,220,41,1,208,12,174,1,208
1005 DATA224,165,144,15,206,1,208,208,10,174,1,208,224,210,240,3,238,1
1006 DATA208,96,173,252,207,240,23,174,3,208,224,35,144,60,206,3,208,206
1007 DATA3,208,206,3,208,173,3,208,141,1,212,96,173,249,207,208,39,173
1008 DATA0,220,41,16,208,32,169,1,141,249,207,141,252,207,169,2,13,21
1009 DATA208,141,21,208,173,1,208,141,3,208,32,64,193,173,0,208,141,2
1010 DATA208,96,169,253,45,21,208,141,21,208,169,0,141,252,207,96,173,251
1011 DATA207,201,7,208,11,162,7,189,243,192,157,39,57,202,208,247,173
1012 DATA251,207,201,12,208,16,169,0,141,251,207,162,7,189,251,192,157
1013 DATA39,57,202,208,247,238,251,207,96,0,12,63,243,192,0,0,0,0,192
1014 DATA243,63,12,0,0,0,173,21,208,41,4,201,4,240,1,96,173,250,207,240
1015 DATA23,173,4,208,201,231,176,10,238,4,208,238,4,208,238,4,208,96
1016 DATA169,0,141,250,207,96,173,4,208,201,27,144,10,206,4,208,206,4
1017 DATA208,206,4,208,96,169,1,141,250,207,96,162,129,142,4,212,202,142
1018 DATA4,212,96,173,30,208,141,16,207,41,1,240,3,141,2,207,173,16
1019 DATA207,41,6,201,6,208,8,169,1,141,3,207,32,184,192,173,16,207,41
1020 DATA10,201,10,208,8,169,1,141,4,207,32,184,192,173,31,208,141,17
1021 DATA207,41,1,240,3,141,2,207,173,17,207,41,2,240,3,32,184,192,96
1022 DATA173,20,3,141,254,207,173,21,3,141,255,207,120,169,0,141,20,3
1023 DATA169,192,141,21,3,88,96
1040 DATA169,152,133,252,169,7,133,253,169,152,133,254,169,219,133,255,162
1041 DATA23,160,28,177,252,141,0,207,177,254,141,1,207,24,165,252,105
1042 DATA40,133,252,165,253,105,0,133,253,165,254,105,40,133,254,165,255
1043 DATA105,0,133,255,173,0,207,145,252,173,1,207,145,254,56,165,252
1044 DATA233,40,133,252,165,253,233,0,133,253,165,254,233,40,133,254,165
1045 DATA255,233,0,133,255,136,192,255,208,181,160,28,202,224,255,240,28
1046 DATA56,165,252,233,40,133,252,165,253,233,0,133,253,165,254,233,40
1047 DATA133,254,165,255,233,0,133,255,76,20,197,160,28,169,32,145,252
1048 DATA169,0,145,254,136,192,255,208,243,173,21,208,41,4,240,21,24,173
1049 DATA5,208,105,8,141,5,208,201,240,144,8,173,21,208,41,251,141,21
1050 DATA208,173,21,208,41,8,240,21,24,173,7,208,105,8,141,7,208,201
1051 DATA240,144,8,173,21,208,41,247,141,21,208,96